home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / NCMCTCSUSER.cpt / NCMC-TCS user / card_4163.txt < prev    next >
Text File  |  1988-09-28  |  6KB  |  263 lines
  1. -- card: 4163 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2777
  5. -- name: setUpUser
  6.  
  7.  
  8. -- part 3 (field)
  9. -- low flags: 00
  10. -- high flags: 0004
  11. -- rect: left=192 top=88 right=106 bottom=406
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: firstname
  20.  
  21.  
  22. -- part 5 (field)
  23. -- low flags: 00
  24. -- high flags: 0004
  25. -- rect: left=192 top=103 right=121 bottom=406
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: lastname
  34.  
  35.  
  36. -- part 7 (field)
  37. -- low flags: 00
  38. -- high flags: 0004
  39. -- rect: left=192 top=134 right=152 bottom=407
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 3
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: password
  48.  
  49.  
  50. -- part 8 (field)
  51. -- low flags: 01
  52. -- high flags: 0000
  53. -- rect: left=2 top=88 right=151 bottom=192
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 0
  57. -- font id: 3
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: 
  62.  
  63.  
  64. -- part 11 (button)
  65. -- low flags: 00
  66. -- high flags: 8004
  67. -- rect: left=144 top=207 right=229 bottom=244
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 1
  71. -- font id: 0
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: Set Baud Rate
  76. ----- HyperTalk script -----
  77. on mouseUp
  78.   answer "What baud rate?" with "300" or "1200" or "2400"
  79.   if it="300" then
  80.     put"19756" into line 2 of field 1
  81.   else
  82.     if it="1200" then
  83.       put "19550" into line 2 of field 1
  84.     else
  85.       put "19502" into line 2 of field 1
  86.     end if
  87.   end if
  88. end mouseup
  89.  
  90.  
  91. -- part 12 (button)
  92. -- low flags: 00
  93. -- high flags: 8004
  94. -- rect: left=246 top=207 right=229 bottom=346
  95. -- title width / last selected line: 0
  96. -- icon id / first selected line: 0 / 0
  97. -- text alignment: 1
  98. -- font id: 0
  99. -- text size: 12
  100. -- style flags: 0
  101. -- line height: 16
  102. -- part name: Set Your Port
  103. ----- HyperTalk script -----
  104. on mouseUp
  105.   answer "Which port?" with "Printer" or "Modem"
  106.   if it="Printer" then put "2" into line 1 of field 1
  107.   else put "1" into line 1 of field 1
  108. end mouseUp
  109.  
  110.  
  111.  
  112. -- part 13 (button)
  113. -- low flags: 00
  114. -- high flags: 8004
  115. -- rect: left=390 top=300 right=322 bottom=490
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 0 / 0
  118. -- text alignment: 1
  119. -- font id: 0
  120. -- text size: 12
  121. -- style flags: 0
  122. -- line height: 16
  123. -- part name: Done!
  124. ----- HyperTalk script -----
  125. on mouseUp
  126.   global stuff,number
  127.   put " " into line 3 of field 1
  128.   put line 6 of field 1 into number
  129.   put card field 1 into line 3 of field 1
  130.   put card field 2 into line 4 of field 1
  131.   put card field 3 into line 5 of field 1
  132.   put empty into line 7 of field 1
  133.   get card field 3
  134.   put length of it into lenny
  135.   put empty into card field 3
  136.   repeat lenny
  137.     put "*" after card field 3
  138.   end repeat
  139.   put line 1 of field 1 into port
  140.   put line 2 of field 1 into rate
  141.   resetSPort port,rate
  142.   set lockscreen to true
  143.   push card
  144.   go to card 1
  145.   pop card
  146.   get field 1
  147.   put it into stuff
  148.   set lockscreen to false
  149.   go to card 1
  150.   put stuff into field 1 of card 1
  151. end mouseUp
  152.  
  153.  
  154.  
  155. -- part 14 (button)
  156. -- low flags: 00
  157. -- high flags: E006
  158. -- rect: left=192 top=153 right=172 bottom=338
  159. -- title width / last selected line: 0
  160. -- icon id / first selected line: 0 / 0
  161. -- text alignment: 1
  162. -- font id: 0
  163. -- text size: 12
  164. -- style flags: 0
  165. -- line height: 16
  166. -- part name: Local Ottawa (613)
  167. ----- HyperTalk script -----
  168. on mouseUp
  169.   if hilite of button "Outside Ottawa (in 613)" then set hilite of button "Outside Ottawa (in 613)" to false
  170.   if hilite of button "Long distance (outside 613)" then set hilite of button "Long distance (outside 613)" to false
  171.   if hilite of target then put "2336262" into line 6 of field 1
  172.   else put empty into line 6 of field 1
  173. end mouseUp
  174.  
  175.  
  176.  
  177. -- part 16 (button)
  178. -- low flags: 00
  179. -- high flags: A006
  180. -- rect: left=192 top=172 right=189 bottom=367
  181. -- title width / last selected line: 0
  182. -- icon id / first selected line: 0 / 0
  183. -- text alignment: 1
  184. -- font id: 0
  185. -- text size: 12
  186. -- style flags: 0
  187. -- line height: 16
  188. -- part name: Outside Ottawa (in 613)
  189. ----- HyperTalk script -----
  190. on mouseUp
  191.   if hilite of button "Local Ottawa (613)" then set hilite of button "Local Ottawa (613)" to false
  192.   if hilite of button "Long distance (outside 613)" then set hilite of button "Long distance (outside 613)" to false
  193.   if hilite of target then put "12336262" into line 6 of field 1
  194.   else put empty into line 6 of field 1
  195. end mouseUp
  196.  
  197.  
  198.  
  199. -- part 17 (field)
  200. -- low flags: 01
  201. -- high flags: 0004
  202. -- rect: left=145 top=233 right=300 bottom=346
  203. -- title width / last selected line: 0
  204. -- icon id / first selected line: 0 / 0
  205. -- text alignment: 0
  206. -- font id: 3
  207. -- text size: 9
  208. -- style flags: 0
  209. -- line height: 12
  210. -- part name: 
  211.  
  212.  
  213. -- part 18 (button)
  214. -- low flags: 00
  215. -- high flags: A006
  216. -- rect: left=192 top=188 right=206 bottom=396
  217. -- title width / last selected line: 0
  218. -- icon id / first selected line: 0 / 0
  219. -- text alignment: 1
  220. -- font id: 0
  221. -- text size: 12
  222. -- style flags: 0
  223. -- line height: 16
  224. -- part name: Long distance (outside 613)
  225. ----- HyperTalk script -----
  226. on mouseUp
  227.   if hilite of button "Outside Ottawa (in 613)" then set hilite of button "Outside Ottawa (in 613)" to false
  228.   if hilite of button "Local Ottawa (613)" then set hilite of button "Local Ottawa (613)" to false
  229.   if hilite of target then put "16132336262" into line 6 of field 1
  230.   else put empty into line 6 of field 1
  231. end mouseUp
  232.  
  233.  
  234.  
  235. -- part contents for card part 8
  236. ----- text -----
  237. Enter your first name:
  238. Enter your last name:
  239. Enter the password you wish to use (at least 5 letters):
  240.  
  241. -- part contents for background part 4
  242. ----- text -----
  243. Wed, Sep 28, 1988
  244.  
  245. -- part contents for background part 3
  246. ----- text -----
  247. Fri, Jul 8, 1988, 4:07 PM
  248.  
  249. -- part contents for background part 1
  250. ----- text -----
  251. 1
  252. 19502
  253.  
  254.  
  255.  
  256. 2336262
  257.  
  258.  
  259. -- part contents for card part 17
  260. ----- text -----
  261. WARNING: The password field must display your password (not "*"'s) !!!!!
  262. If you re-enter this window you must re-enter your password.  You will not be logged on correctly if you do not do so!!!!!
  263.